#!/usr/bin/perl

use utf8;
use strict;
use warnings;
use 5.010001;

for ( @ARGV ) {
	print "$_ :\n";
	when ( ! -e ) {say "\t no exist \n"; }
	when ( -r $_ ) { say "\tReadable!"; continue }
	when ( -w $_ ) { say "\tWritable!"; continue }
	when ( -x $_ ) { say "\tExecutable!"; continue }
}
